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0019DA 106 DEVADD1 EQU  PID+X*O1DA! ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE a 
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= 
Lar) 


SOURCE STATEMENT 


COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT SIMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 
1247 * 4 Q002C 18 4524 27AE 1364+ MVA CSBUF,R5 * TO ALL ONES *¥* 
1248 * 2 BAL SRECL, R6 RECALIBRATE 00zC1C OF10 1365+ MVBI 16,R7- * 
1249 x ‘ih OOzZCI1E 2BAC 1366+ FFN R3 485) * 
1250 * 3 BAL SKDID, R6 READ SECTOR ID 002C20 4020 2790 0708 1367+ MVWL x6 08',Si0OIN OVERLAY OLD CONDITION CODES 
1251 * ~ 002C26 CB25 2792 1368+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
1252 * 4 BAL SRD, k6 READ 1369+4+* 
1253 * er O0zC2A 4CAl 1370+ TETRE R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
1254 * 5 BAL SRDVY, R6 READ VERIFY 002C2C 4CA3 1371+XIO2 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1255 * =e QO2C2ZE 4724 2CEA 1372+ MVA oBLK 7 SET UP CONTROL BLOCK FOR SUPVR 
1256 * 6 BAL SWRT, R6 WRITE 002C32 YCA6 1373+ TBTR RY, $LE) RESET LEVEL ERKOR INDICATOR 
1257 * ws 002C34 4C62 1374+ TBTS R4, XI) SET EXPECTED INTR CONTROL BIT 
ieee . 7 BAL SFMT, K6 FCRMAT 002C 36 60UA ae SVC TART CALL SUFPVR ZOR I/O COMMAND 
“ + 
1260 * 8 BAL XIOCS,R6 CYCLE STEAL STATUSB 002C 38 4CAT7 1377+ TBTR PG oy) IS AN INTR EXPECTED 
1261 * 2 002C3A 6ACO 0002 1378+ BN * NO, RETURN TO USER 
1262 * 9 BAL E£DLAG, b6 READ DIAGNOSTICS 1379+* 
eae . io aca. THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
0O0ZB8C 4Q20 2CEE 2AE0 1265 $SEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 0 E ODO00 1382+ MVBI x? a SET UP WCRK REG FOR "LOST INTR! 
OUZB92 502C 1266 J XIO 0 O 4CA3 1383+X TBTK rhy HAS INTERRUPT BEEN RECEIVED 
1267 * ¢) 2 1238 1384+ JON Bi GE * YES, CHECK IF ALL WAS SATISFACTORY 
OO2Z2B94 4020 2CLE 2AB0 1268 $S$RECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 0 4 6002 1385+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RU 
OO2Z2B9A 5028 1269 J XIO 1386+* SUPVR WILL RETURN HERE 
1270 * 0 6 7DA1 1387+ AWL 1,R5 ADVANCE TIME OUT COUNT 
OO2B9C 4020 2CEE 2AD0 1271 $RDID MVA RSDCB, 10DCB SET UP BLOCK FOR SVC CALL ¢) A 18FA 1388+ JINZ XI08 BCH IF TIME OUT NOT REACHED 
OOzZBA2 4020 2796 9999 1272 MVWI X'9999* ScTID INVALIDATE SECTOR ID BUFFER AREA Q Cc 4C61 1389+ TBTS R4 ER) SET ON ERROR CONTROL BIT 
GO2BA8 4020 2798 9999 1273 MVWI X*9999"* SCTID+2 * 0 E 68D2 1390+ R6{ * ERR "NO INTERRUPT! 
OOZBAE SO1E 1274 J XIO VIG QE RMR KKK KK KE EO kk kok kk kok kok ok kak ok ok tek kk totok tk 40K *O JF EBT 6 ** 
1275 * 1393+* 
OOZBBO OBFF 1276 $RD MVBI 255,R3 INIT READ BUFFER TO FF®&S 1394+#+* SUBROUTINE 
OO2BB2 6DO08 2B2E 1277 MVW  RDDCE+14, 85 * 1395+% 
OQO2ZBB6 4724 Q400 1278 MVWI X*0400*, R7 * 1396+* I/O EXECUTE ERROR HANDLING ROUTINE 
OO2B3BA 2BAC 1279 FFN h3 (RO) * 1397+* 
O02bBC 4020 2CEE 2B20 1280 SRC$ NVA RDECE, CECE SET UP BLOCK FOR SVC CALL 1398+* PURPOSE 
GOZBC2 5014 1281 J X10 1399+4+* 
; 1282 * 14004 THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
OO2BCY 4020 ZCEE 2B10 1283 SKRDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1401+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
OO2BCA 5010 1oae : J XIO hae SUPERVISOR AND IT WAS NOT ACCEPTED. 
+ 
QOZBCC 4020 2CEE 2800 1286 SWRT MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1404+* CALLING SEQUENCE 
GOZBD2 500C 1287 J XIO 1405+* 
. : 1288 * 1406+*+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
UQOZBD4 4020 2CLE 2ACO 1289 $FMTI MVA FRDCB,1ODCB SET UP CONTROL BLOCK FOR SVC CALL 140 7+* 
OOZBDA 5008 1290 J XIO 1408+* RETURN CQNTROL 
OO2BDC 4020 2CEE 2AA0 1291 $DIAG MVA reoat LODCB SET UP CONTROL BLOCK FOR SVC CALL 1409+ 
QO2BbE2 4020 zCFQ OOOD 1292 MVWL '000D', TOMOD MODIFIER FOR DIAG OP 1410+* B (R6) * RETURN TO USERS ERROR HANDLER 
OO2BE& 5O0E 1293 J XI 01 1411+* 
OOZBEFA 5601 1294 CEOP2 BXS (Re, 2) DUMMY RETURN TO USER 10126 KK OK III IK II IOI IK ii a iota ka a a a I a i kat atte ak ate ake akoakake ake ak 
1295 * ‘ 1413+* 
1296 QiT 1 1414+* CC O= DEVICE NOT ATTACHED 
V29 7 tH RE EE tok ee RO ia tk tokio totdok tok 29 JUL 76 ** 1415+* FOR = DEVICE BUS SY 
1298+* 1416+* TsO = DEVICE BUSY AFTER RESET 
1299+* SUB-ROUTINE 1417+* = CCMMAND REJECT 
1300+ 1418+* Y= INTERVENTION REQUIRED 
1301+ EXECUTE INPUT AND OUTPUT COMMANDS 1419+% 5= INTERFACE DATA 
1302+ 1420+ 6= CCNTRCLLER BUSY 
ee PUKPOSE Lee 7= I/0 COMMAND EXCEPTED 
+ + 
1305+* TO EXECUTE ALL I/O CCMMANDS FROM A COMMON PLACE. 002C52 TQ6E 1423*+XIOER DC X*7O6E* COPY STATUS ANY LEVEL INTO K3 
1306+* THiS SUBROUTINE WiLL DO THE FOLLOWING FUNCTIONS: 002C54 336A 1424+ SRL 13,R3 POSITION CC CODE f0O BITS 13-15 
1307+%* 002C56 C328 2790 1425+ MVB K3, S5101N * PUT IN LOG OUT AREA 
1308+* 1. SAVE THE ADDRESS THAT PCINTS TO THE INSTRUCTION THAT STARTED O02C5A 68D2 0000 1426+ B (Fb) * RETURN TO USER ERROR HANDLER 
1309+ THE 1/0 COMMAND. 1428+ 47 2 OO i gk ok oo aio ak igiaiciidotdokactaickokckiok 1 QA PR76** 
1310+%* 20 SAVES THE DCB BLOCK eee UNLESS LT IS A START CYCLE STATUS 1429+ IL 
1311+* ISSUED BY THIS SUBROU 1430+* SUB-ROUTINE IL 
13124+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 1431+ IL 
1313+%* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 1432+%* ERKOR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL* IL 
1314+ 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 1433+* IL 
1315+* SINCE THE LAST EXPECTED INTERRUPT. at AN INTERRUPT IS FOUND 1434+* PUREOSE IL 
1316+%* MYSTERY INTERRUPT (MI) CONTROL BIT IS SET. 1435+* IL 
1317+* 54 MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN RV, SET THE 1436+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
1318+ EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE "SVC START*. 1437+%* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
1319+ 6. WHEN THE SUPVR KETURNS AFTER ISSUING THE I/O COMMAND, TIMING 4438+% EXPECTED CODE. IL 
1320+* STARTS TO DETERMINE A LOST INTERRUPT. 1439+ IL 
1321+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 1440+* CALLING SEQUENCE IL 
1322+* WAS AN ERKOR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 144 14% IL 
1323+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 1442+ SUPVR WILL ENTER WHEN AN ERROR CCCURS ON AN I/O INTERRUPT IL 
1324+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 14434+* IL 
1325+* 10. CHECK IF THERE WAS AN ERRCK CONDITION, IF NOT RETURN. 14444* RETURN CONTROL IL 
1326+* 11, CHECK TC SEE If THE EXERCISER IS TO BE TERMINATED. 1445+ IL 
1327 +* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 1446+* SVC EXIT RETURN TO USER VIA SUPVR IL 
1326+% ISSUED BY THIS SUBROUTINE, 14474* IL 
1329+%* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 1448 + 2% 3k OI I Ga OR aR Go i koko Ra a a ick dokakackotototak TE 
1330+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 14494 IL 
1331+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 1450+* CC O= CONTROLLER END ISB O= ADD STATUS IL 
1332+* 1451+* FOR 1= PRCGKAM CONTROL INTERRUPT BITS 1= COMD REJECT LL 
1333#* CALLING SEQUENCE 1452+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
1334+* 1453+* 3= DEVICE END INTERRUPT : INTR 3= DCB SPEC CK IL 
1335+4+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1454+* 4&= ATTENTION INTERRUPT 4= STG DATA CK IL 
1336+* 1455+* , 9= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
1337+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 1456+* 6= ATTENTION /~ EXCEPTION INTR 6= PROTKCT CK IL 
1338+* --> BAL XIoO1 MOD PARM PRELOADED IN tiomop: 1457+%* 7= ATTENTION 7 DEVICE END INTR 7= I-FACE DATA LL 
1339t* --> BAL irae its OR XEQ START CYCLE STEAL STATUS, MOD=F P 1458+* IL 
1340+* --> BAL AIOCS—-4, R6 AUTO CS STATUS FOLLOWING OThER XIO OO2ZC5E TO6E 1T4594+INTER DC X*7O6E® COPY STATUS ANY LEVEL INTO &K3 IL 
13414* ie AND DOES NOT POST INTERRUPT STATUS) 002C60 336A 1460+ SRL 13,83 POSITION INDICATORS IN R3 IL 
1342+* 00ZC62 4424 2788 1461+ MVA OPfN1,R4 SET UP BASE ADRS IL 
1343+* RETURN CONTROL 002C66 4C28 1462+ TBT te c&). IS CS IN PROGRESS IL 
1344+% 002€C68 1006 1463+ JOFF INTES * NO IL 
1345+* BXS R6 2) RETURN TO USER NO ERROR QO2C6A 4COA ‘14644 TBIS (Roe CE) TURN ON CYCLE STEAL INTER ERROR IL 
1346+* Ch B R6 RETURN AND RETRY ON ERROR O002C6C OFOD 27bC 1465+ MVW R7,CSTL8 SAVE CS ERR ISB VALUE, BITS O-7 IL 
43 7 BOER CWRU So he COLE WEEGO TE CS CERES tee ene ee es 002C70 C328 27BD 1466+ MVB k3,CSTL8+1 * AND THE COND CODE IL 
VOZbLC CB25 2ZCFO 1349+xI0O MVWZ IOMOD,k3 SET MOF OF O FOR CYCLE STEAL OP OO02C74 500A 1467+ J INTR1 IL 
GVUZBEO 500A 1350+ J Xi01 CS I/0O'S ARE NOT RETRIED 002C76 4C24 T468tINTES TBT Ce XE) TEST EXPECTED ATTEN / ERKOR IND IL 
1351+* 002C78 1002 1469+ JOFF NT ET BCH IF NOT EXPECTED IL 
VULbBE2Z YUCAA 1352+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. OOZCT7A F304 1470+ CBi 4,R3 IS THIS AN tATTENTION! INTR IL 
OUZLEY 4C68 1353+ TB1S R4,CS SET "CYCLE STEAL STATUS* IN PkKOGRESS O0O02C7C 1006 1474+ JE LANTR1 * YES BCH TO END INTR SEQUENCE IL 
VOUZLEO 40 20 2ZCEE 2AFO 1354+XIOCS MVA SEPCB, IODCh SET UP CONTROL BLOCK FOR SVC CALL QO2CTE 4C61 T4724+INTIET TBTS ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
GVUZBFC 4020 ZCFUO OOOF 1355+ MVWI X*OOOF*,TOMOD SET CYCLE STEAL MODIFIER 002C80 5004 1473+ J NTR1 IL 
OO2ZCUz 4C2Z8 1356+ TBI i cs IS CS IN PROGRESS ERROR CONDITION 1474+ THE ERROR INTERRUPT USES THE SAME IL 
O00ZCO4 1213 4357+ JON 102 * YES BYPASS SAVING aCe ADRS 1475+ ENDING SEQUENCE AS THE NORMAL INT IL 
QOUZCO6 OLEOD zZ7T94 1358+#+xXIO1 MVW k6, LSTLO SAVE TAR FOR RETRY IF REQUESTED 1477 +R ORI IOI OR ROR fom tok fo a aOR OKT GA PR76 IL 
GOZCOA 4Y324 ZIYE 1359+ MVA LCKUF, K3 SET UP TO ADRS TO MOVE DCB TABLE 1478+* IL 
OUZCUE 6D08 2CEE 1360+ MVW ICDCE,R * AND THE FRCM ADRS ALONG WITH 1479+* SOUBROUTINE IL 
Q0ZC12 OF10 1361+ MVBI 16—R7 * THE NUMBER OF MOVES 1480+* IL 
002014 ZD64 1362+ MVFN SR) 4&3) MOVE 1 STATUS WORD AND ADJUST 1481+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL'* IL 
OU ZC 16 ObFF 1363+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 1482+4¢* IL 
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1483+* EURPOSE IL 002D16 4724 2CF6 1601+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
1484+*% IL QOO2D1A 6014 1602+ SVC CICBE * CONNECT IT TO THIS DEVICE 
eeLs TO CHECK THE INTERRUET AND CONTINUE THE TEST af 002D1C 6ADO 0000 a ee BN (R6) * ERROR RETURN TO USER 
+ 
1487+* CALLING SEQUENCE IL 002D20 8828 27C& 2CEE 1605+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
1488+% IL 002D26 4724 2CEA 1606+ MVA IOBLK,R SET R7 TO CONTROL BLOCK TO PREPARE 
44894+% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL OO0O2D2A 4020 2790 0708 1607+ MVWL X'0708!, $10IN INITIALIZE CONDITION CODE STORAGE 
1490+% THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 002D30 CB25 2792 1608+ MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 
149 14+%* AFTEK THE SPECIAL PART HAS BEEN COMPLETED AND THE IL O0O2D34 o6EOD 2794 1609 MVW R6, LSTIO SET UE ADDRESS THAT STARTED LAST 1/0 
149 24% COMMQN SECTION IS HANDLED HERE. IL 002D38 600C 1610+ SVC PREP * AND CALL CN SUPVR 
149 3+* IL OO02D3A 5601 1611+ BXS (F6,2) RETURN TO USER 
14944+* RETURN CONTROL IL LOLS RAEAAAEE CEES EREE EEA SHEET HAE EEE EE EEES ES ER EAEEREAE HAAS EE HEHEHE OG APRTG HF 
1495+ IL 144+* 
gcse SVC EXIT RETURN TO USER VIA SUPVR ty ones SUBROUTINE 
+ + 
VU Bt HH He a eo eK ok kk ko i a oto a ai Rok dakok tok tofkoak eax ok JT, 1617+* DISCCNNECT THE INTERRUPT CONTRCL BLOCK AND LOG ERRORS 
002C82 TO6E 4V4994+INIOK DC X*7O6E* COPY STATUS ANY LEVEL INTO R3 IL 1618+* 
002C84 336A 1500+ SRL 13, R83 POSITION INDICATORS IN R3 IL 1619+* PURPOSE 
002C86 4424 2788 1501+ MVA OPEN4,R4 SET UP BASE ADRS IL 1620+ 
002C8A 4C63 1502+INTR1 TBTS Ente SET INTERRUPT RECEIVED IL 1621+* DISCONNECT THE INTERRUPT CONTROL BLOCK TC THIS DEVICE AND 
Q002C8C 4C28 1503+ TBT R4 CS IS "CS IN PROGRESS* ON LG 1622+¢* SET THE "NO GOOD* CONTROL BIT, THEN LOG THE DATA THAT HAS 
VOZC8E 1204 1504+ JON INTR? * YES, BCH ARCUND UPDATE IL 1623+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROE CONDITION, 
002C90 C328 2791 1505+ MVB R3, SICIN+1 SAVE INTERRUPTING CC CODE IL 16244+%* 
002C94 6F0D 2792 1506+ MVW R7,$I1SB SAVE INTR STATUS AND DEV ADRS IL 1625+* CALLING SEQUENCE 
002C98 1507+INTR2 EQU * IL 1626+* 
1508+t* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 1627+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
002C98 3521 1509+ SLL 4W,RS POSITION INTR LEVEL AND PUT IL 1628+* 
OO2C9A OQO501 1510+ ABI 1,R5 * IN *I* BIT IL 16294+* --> B SERRS SET ‘NG* BIT AND CONVERT DATA TO LOG 
O02C9C CD24 27C4 1511+ CW SENTL, R5 IS THIS THE CORRECT INTR LEVEL IL 1630+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
0Q02Ca0 1002 1512+ JE INTE3 * YES GO EXIT THIS LEVEL IL 1631+* 
GO2CA2 4C66 1513+ TBTS R4, $LE) SET TATR LEVEL ERROK CONTROL BIT IL 1632+* RETURN CONTROL 
OOZCAY 4C61 15144 TBIS R4, ER SET ERROR ON I/O COMMAND CNTIL BIT IL 1633+* 
OO2CA6 4CA2 1515#INIR3 TBTER R4,xXi WAS INTERRUPT XPECTECD IL 1634+% B LTURIN* RETURN TO MDI 
O002CA8 1204 1516+ JON INTRX * YES, EXIT OFF THIS INTR LEVEL IL 1635+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
OO2ZCAA 4C60 1517+ TBTS (F4,MT) * NO, SET MYSTERY INTR CONTROL BIT IL 1636+* 
QOQO2ZCAC F304 1518+ CBI 4 R3 ATTENTION INTERRUPT? IL ‘ VG BT & Re Kk RK iO kK ak ke ake fc ka oie ok ak a ae tie ake ake teak 2 a ake ke fe ake ake ake afc ake ake ake ake ake ake ake ake ofc ae 
OOZCAE 1001 1519+ JE TATR YES IL 00ZD3C 4020 1818 8000 1638+SERRS MVWL X'*8000*, ,TUSTATUS SET ON "NO GOOD" STATUS BIT 
OO02CBO 4C6C 1520+ TBTS ae NG) ERROR,UNEXPECTED INTERRUPT IL 002D42 4724 2EB2 1639t NVA HEBLK,R7 GET ADRS OF CONTRCL BLOCK 
QOO2CB2 6006 IS21+INTRX S xI EXIT PHIS LEVEL VIA SUPVR TO PGM IL 002D46 601A 1640+ SVC HTOE CCNVERT HEX TO EBC VIS DcpPp 
15234 HH RK EE ok ako aii aca a koko soak OQ 3F FB76 ** 002v48 0D03 1641+$PRNT MVBI 3,R5 
15244 OO2D4A 4324 181A 1642+ NVA TOWCRK R3 SET UP EUFFER STORAGE 
1525+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT OO2ZD4E O6BOD Z2EAA 1643+ MVW R3 BUFPT 
1526+ HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 002D52 4124 2DDA 1644+ MVA LINE1,R1 
1527+ RECEIVEL AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 002D56 OFO4 1645+ MVBIL Q,R7 
15284* 002D58 OEO08 1646+ MVBI 8,R6 
1529+ OO2ZD5A 2B24 1647+MVBUF MVEN {23} 2 (BN) 
O02CK4 4CAY 1530+#XIOCK TBTR R4&, XE) WAS AN ERROR EXPECTED OOQO2D5C OFOY 1648+ MVBI a 
002CKB6 6ACO 0002 1531+ BN R6 , 2 * YES, EXIT THIS ROUTINE OOZD5E QA40 1649+ MVBI X*4Q*,R2 
OO2CBA 4CA8 1532+ TBTR R4,CS) WAS AUTO CS IN EROGRESS 002D60 C258 1650+ MVB B26 (E + 
OOZCBC 1006 1533+ JOFF XIOCV * NO, CONTINUE CHECKING Q002D62 BEFB 1651+ JCT MVBUF,R6 
QGOO2ZCBE 4C2A 1534+ TbT {36 CE) IS CS IN AN ERR CONDITION O00z2D64 OEO8 1652+ MVBI 8,R6 
002CCO 1002 1535+ JOFF IOCO * NO, BCH 002D66 7921 002C 1653+ AHI ah Rt 
002CC2 68D2 0000 1536+ B R6) * CS ERROR OO2D6A BDF7 1654+ oct svVBUF,RS 
002CC6 4C69 1537+#X1I0CO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 002D6C 4020 1802 FIFO 1655+ MVWI PLIDMSG10 PID+t+2 
002CC8 5601 1538+ BXs Breet GO TO USER 0O02ZD72 4020 19B8 2EB0 1656+ MVA FAKETU abCaDpD1 
OOZCCA 4C21 1539+XIOCV TBT K4, Ek) WAS ERROK INTR CONTROL BIT ON 002572 4020 19BA 2EAC 1657+ MVA DC2PT ODCADD2 
0O0ZCCC 100B 1540+ JOFF IOCX * NO, EXIT THIS ROUTINE OO2D7E 402C 19C4 0080 1658+ OWL BI 10080 SUPSTAT 
15414+* 002D84 4324 278E 1659+ MVA $TUID,R3 SET UP BUFFER STORAGE 
OO2CCE C520 2791 1542+ MVB SIOINt1,R5 GET LAST INTR CC CODE 002D88 6F13 18BA 1660+ BAL TUMSGWTR*, R7 GO TO MESSAGE WRITER 
GQOzCD2 F502 1543+ CBI 2,85 IS THIS Cc=2 166 1+* 
OO02CD4 68D1 0000 1544+ BNE ffe)* * NO, BCH TO ERROR HANDLER 002D8C 1662+*$CONX EQU * 
OO2CD8 C520 2792 1545+XIOCQ MVB Is R5 GET fast ISB DATA BYTE AND IF CS 002D8c 8028 2797 27CD 1663+ MVB SCTIDt*1,SVCAL+3 SETUP CURRENT CYLINDER NUM 
OO2ZCDC 6A00 2BF2 1546+ BN Xx10c$-4 * AVAILABLE, GO ANC GET IT 002D92 4724 27CA 1664+ MVA SVCAL, 4 ADDR OF RELEASE PARM LIST 
OO2CEO0 68D2 0000 1547+ B Ane) ERROR 002D96 6017 1665+ SVC RELSD RELFASE CONTROL 
OOZCEY C625 278C 15484XIOCKX MVWZ EPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 002D98 C720 19D0 1666+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
OQO2CE8 5601 1549+ BXxSs (R6,2) RETURN TO USER VIA REG 6 Q002D9C 6013 1667+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
1550+* OO2D9E 6812 27C6 1668+t B TURIN* RETURN TO MDI SUPERVISOR 
1551+* L/od PARAMETER LIST 1669+4+* 
1552+* OO2ZDA2 0007 1670*+BEGIN DC A(0007 NUMBER CF LINES TO PRINT 
OOZCEA 19D0 1553+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS OU2ZDAY 0008 1671+ DC A (0008 LINE LENGTH = 8 CHAR 
OO2ZCEC 2C52 1554+ DC A (XICER) ERROR ROUTINE ADRS OO2DA6 5C5C40C1C2D6D9E3 1672+ DC C**x* ABCKT® 
UG2CEE 0000 15554#IODCB DC A (*-* CCB ADRS OR LEVEL & INTR OO2ZDAE 0028 1673+ DC A (0040) LINE LENGTH = 40 CHAR 
QOUZCFO 0000 1556+ 1IO0MOD DC A (*-* MODIFIER 002DB0 EZE4C9CH4OCIDECID 1674+ DC C*TUID IOIN ISB INST DEV1 DEV2 DEV3 DEVY * 
QO2CF2 0000 1557+ DC A (*¥-* ADRS OF LAST SVC CALL O02DD8 0028 1675+ DC A (0040) LINE LENGTH = 4O CHAR 
QOO02CF4 0000 1558+IORSP DC A (*-* SECOND WORD OF LAST IDCB OO2ZDDA 404040404 04040K04K 16764#LINEI1 DC C ’ 
1559+4+* QOQ2E02 0028 1677+ DC A (0040) LINE LENGTH = 40 CHAR 
1560+4+* INTERRUPT CONTROL BLOCK FORK I/O COMMANDS OO2ZEO4 C3D5E3D340C4C3C2F 1678+ DC C'*CNTL DCB2 DCB3 DCB4 DCBS CHAD BYCT ADRS ° 
15614+* OO2ZE2C 0028 1679+ DC A (0040) LINE LENGTH = 4O CHAR 
QO2CF6 19D0 1562¢INTBL DC A (DEVADD) ADKS OF DEVICE ADRS O0O2E2E KO4OKO4OKOUOKO4OY 16804+LINE2 DC cf 
OQOO0OZCFB 2zC82 1563+ DC A (INTOK INTERRUPT OK RETURN ADRS 002E56 0028 1687+ DC A (0040) LINE LENGTH = 40 CHAR 
OO2ZCFA 2C5E 1564+ DC A CINTER INTERRUPT ERROR ADRS OO2ZE58 DIEZCICYYOCZE2Z60F 1682+ DC C*RSID CS-2 CS-3 CS-4 CS=5 CS-6 CS-7 CS-8 
OOZCFC Q003 15654+INTCC DC xXx*00038 INTERRUPT CODE EXPECTED QO2E80. 0028 1683+ DC A (0040) LINE LENGTH = 4O CHAR 
15 G7 te OO ok foi kak kolok tote tcc dockok J MAY 76 ** OOZE82 Y4O4OKO4OUOKOKOUO4 16844LINE3 DC C 
1568+* 1685+* 
15694+#* SUBROUTINE OO2ZEAA 0000 1686+BUFPT Dc A BECE 
1570+* QO2EAC 2DA2 16874+DC2PT DC a BEG N) 
15714+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE OO2ZEAE 0101 1688+FIXTU DC X*O10T# 
157 24% QO2EBO 0101 1689+FAKETU Dc x!f01018 
1573+* EPUREOSE OOF1FO 1690+PIDMSG10 EQU X*F1FO! 
15744* 000080 1691+BITO080 EQU xX*00808 
1575+4* TO CONNECT THE INTERRUPT CONTROL BLCCK TC THIS DEVICE AND 1692+* 
1576+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 1693+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
toaaT On. Se sake eee OO2Z2EB2 0030 1ed5s neste D 4g 
+ ® + c A NUMBER OF BYTES TO CONVER 
1579#* CALLING SEQUENCE OO2ZEBY 2/78E 1696+ DC A($TUID FROM ADRS e 
1580+% QO2EB6 181A 1697+ DC A (TUWORK) AND THE TO ADRS 
181s * THIS SUBROUTINE HAS THE FOLLCWING ENTRIES: 1G 2 Aco EELS ORE ASSESS ESSE ES AIO I OOK ORR EE 11S FP 75 4 ® 
+ + 
1583#* --> BAL SCONC, R6 CLEAR DEV DEP S{G AND CONNECT I/O BLK 1701+#* SUBROUTINE 
15844+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 1702¢* 
1585+4* 1703+* SPECIAL ERKOR CHECKING OF THE DCB 
1586+* RETURN CONTROL 1704+* 
15874 1705+* PURPOSE 
1588+* Bxs (re 2) RETURN TO USER VIA REG 6 IF OKAY 1706+* 
1589+* OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED 1707+* TO SET THE CONTROL BiTS BEFORE ISSUELNG THE 1/70 COMMAND 
1590+* 1708+* TESTING TQ VERIFY THAT THE ERROR DID OCCUR, AND VERIFYING 
159 14 4% ROO KOI IO IOI III ORI IORI IO OI IR ROR I CHO kak ako ak ak ke ke ak 1709 +4+* THAT THE RESIDUAL ADDRESS IS WHAT IT SHOULD BE. 
OOZCFE UFQ6 1592#$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 1710+* 
GQOZDQ0 QOBOQO 4593+ MVBI O,R3 * AND THE DATA TO USE 1711** CALLING SEQUENCE 
BOS oOe ay 2796 deans ave DEVI RS 2 ALONG WITH THE ADRS TO USE a : 
: + +*¥ -— BAL ERTST, R2 USE CO 
00ZL08 CB25 278C 1596+ MVWZ 6pty3.h3 CLEAR OLD CONTROLS FOR NEW ROUTINE 1714+%* DC A(1) ” DISPLACERENT FOR RESIDUAL ADRS 
GO2D0C 4724 Z7TCA 1597+ MVA SVCAL,R7 SET UP TO REQUEST DCP SUPR DISK 17 15+* DC A (*-*) ERROR ADDRESS 
002D10 6016 159 8+ SVC REQSD * 17164* 
O02L12 OFFF 1599+ MVBI <-1,R7 SET UP DELAY FOR IBIS 1717+* RETURN CONTROL 
002014 BFFF 1600+ JCT * 7 * AND DECREMENT IT DOWN 1718+* 
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STMT SOURCE STATEMENT 

17194* BXS (R2, 6) 
1720+* 

1721 

1722¢+ERIST TBTS {RY ek XE) 
1723+ AL 

1724+ DC A (SERS) 
1725+ TBT 4 ER) 
1726+ JON RTSV 
1727+ B (R2, 2) * 
17284* 

1729+ERTSV AW (R2) gIODCB 
1730+ NOP , 

1731+ NOB §¢ 

1732+ NOP 

1733+ MVW TODCB,ERTSZ 
1734+ TBTR { 4, ER 
1735+ BAL ro€s—-4, Ro 
1736+ DC A (SERRSS 
1737+ TBT 4 ER) 
1738+ BON RRS 
1739+ CW CSTL1, ERTSZ 
1740+ JE RTSX 
1741+ B R22). 
1742+ERISX TBTR (R4,CS) 
17434 BXS R2,4) 
17444* 

1745+ERTSZ DC A (*—*) 
1746 * 

1748 END 
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B ADDRESS 

RROR BIT 

ST START CYCLE STEAL STAUTS 
Poon CONTROL BIT GET SET 

T FOR CORRECT RESIDUAL ADDRS 
ESIDUAL ADDRESS OK 

ERROR 

RESET CS IN PROGRESS CNTL BIT 
OK, RETURN TO CALLER 
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DECLARED 
0 


0 


1592 
1662 
621 
16 38 
1289 
619 
589 
590 
574 
1280 
1271 
1283 
1268 
1265 
588 

42 
102 
103 

39 

4Q 

45 
1670 
1691 
16 86 
552 
578 
658 
1102 
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577 
607 
1141 
608 
609 
615 
597 
1687 
105 
592 
1090 


NAME 
RQ. 


Ri. 


-R2. 


~R3. 


-R4. 
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SCONC 
SC ONX 
$DVID 
SERRS 
SFMT 
SINTL 
SIOIN 
$ISB 
SLE 
SRDS 
SRDID 
SRDVY 
SRECL 
SSEEK 
$TUID 
@CALL 
@DCADD1 
@DCADD2 
OFIXT 
@STOP 
@TUXX 
BEGIN 
BITO080 
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P/N=1635068 EC=578757 
CROSS“REFERENCE LISTING 
HEX VALUE (00000000) 
790 848 g59 852 854 856 858 
907 914 91 994 995 
HEX VALUE (00000001) 
897 898 993 1037 1039 1041 1043 
1054 1055 1644 1647 1650 1653 
HEX VALUE (00000902) 
803 810 820 828 838 909 910 
989 990 991 992 1030 1031 1049 
1052 1053 1059 1066 1649 1650 1727 
HEX VALUE (00000003) 
1349 1359 1362 1363 1366 1368 1424 
1466 1470 1500 1505 1518 1548 1593 
1608 1642 1643 1647 1659 
HEX VALUE (00000004) 
980 998 1006 1013 1020 1026 1027 
1353 1356 1370 1371 1373 1374 =# 1377 
1461 1462 1464 1468 1472 1501 1502 
1514 1515 1517 1520 1530 1532 1534 
1722 1725 1734 1737 «1742 
HEX VALUE (00000005) 
1277 1279 1360 1362 1364 1366 1382 
1510 1511 1542 1543 1545 1594 1595 
HEX VALUE (00000006) 
996 1004 1011 1018 1062 1294 1358 
1426 531 1536 1538 1544 1547 1549 
1611 1646 1651 1652 1723 1735 
HEX VALUE (00000007) 
887 891 978 1278 1361 1365 1372 
1592 1597 1599 1600 1601 1606 1639 
1660 1664 1666 
HEX LOCATION(QOOO2CFE) IN CSECT(I4801 }) LENGTH (2) 
HEX LOCATION (00002D8C) IN CSECT (14801 ) LENGTH (1) 
HEX LOCATION (000027C8) IN CSECT (14801 ) LENGTH (2) 
HEX_LCCATION (00002D3C) IN CSECT(14801 ) LENGTH (6) 
HEX LOCATION(OOOO2BD4) IN CSECT(I4801 ) LENGTH (6) 
HEX LOCATION (000027C4) IN CSECT(I4801 ) LENGTH (2) 
HEX LOCATION (00902790 IN CSECT (14801 ) LENGTH (2) 
920 107 1367 1425 1505 1542 1607 
HEX EOcatION (00062792) IN CSECT(I4801 ) LENGTH (2) 
1506 154 1608 
HEX VALUE (00000026) 
HEX LOCATION (00002BBC) IN CSECT (I4801 ) LENGTH (6) 
HEX LOCATION(00002B9C) IN CSECT(I4801 ) LENGTH (6) 
HEX LCCATION(00002BC4) IN CSECT(I4801 ) LENGTH (6) 
HEX LOCATION (00002B94) IN CSECT (14801 ) LENGTH (6) 
HEX LCCATION(00002E8C) IN CSECT(14801 ) LENGTH (6) 
HEX LCCATION (0000278E) IN CSECT(I4801 ) LENGTH (2) 
8&8 9 659 696 
HEX VALUE (00000201) 
426 “ay 
HEX LOCATION (00001958) IN CSECT (14801 ) LENGTH(1) 
HEX LOCATLON(000019BA) IN CSECT(1I4801 ) LENGTH (1) 
HEX VALUE (00000101) 
HEX VALUE (00000102) 
HEX VALUE (00000500) 
396 432 450 
HEX LCCATION(O0002DA2) IN CSECT(I4801 ) LENGTH (2) 
HEX VALUE (00000080) 
HEX LCCATION(OQOO2EAA) IN CSECT(I4801 ) LENGTH (2) 
HEX VALUE (0000001F) 
HEX VALUE (0000002) | 
HEX VALUE (00000014) 
HEX LCCATION (0O0002AB0) IN CSECT (14801 ) LENGTH (2) 
HEX VALUE 90000028) 
1462 1503 1532 ° 1742 
HEX VALUE (00060029) 
HEX LCCATION (000027AE) IN CSECT (14801 ) LENGTH (1) 
HEX LOCATION(OOOO2AFO) IN CSECT(I4801 ) LENGTH (2) 
HEX LOCATION (000027AE) IN CSECT(I4601 ) LENGTH (2) 
HEX LCCATION(000027B0) IN CSECT(I4801 ) LENGTH (2) 
HEX LOCATION (000027BC) IN CSECT (14801 ) LENGTH (2) 
HEX LCCATION(0000279E) IN CSECT (14801 ) LENGTH (1) 
HEX LOCATION(OOQO2EAC) IN CSECT(1I4801 ) LENGTH (2) 
EX LOCATION (000019D0) IN CSECT (14801 ) LENGTH(1) 
1553 1562 1666 
HEX LOCATION (00002796) IN CSECT(1I4801 ) LENGTH (2) 
HEX LOCATION(00002AA0) IN CSECT(I4801 ) LENGTH (2) 
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CROSS-REFERENCE LISTING COPYRIGHT IBH CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBH CORP 1976 
DECLARED NAHE ATTRIBUTES AND REFERENCES DECLARED NAHE ATTRIBUTES AND REFERENCES 
1211 DIAGH j ADDRESS. HEX LOCATION(00002B62) IN CSECT(I480% ) LENGTH (2) 444 N00010 SPU RESon HES LOCATION (OO0025BE) IN CSECT(INBOT ) LENGTH (2) 
1190 DIFF jABRRESS. HEX LOCATION (00002538) IN CSECT(I4801  ) LENGTH(2) 450 N00011 ADDRESS. HEX LOCATION (000025CA) IN CSECT(14801 ) LENGTH (2) 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) 462 N00012 ADDRESS. HEX LOCATION (000025DC) IN CSECT(I4801 ) LENGTH(2) 
468 ENTPT ADDRESS. HEX LCCATION(000025E6) IN CSECT(I4801 ) LENGTH(1) 465 N00013 ADDRES oe fet LOCATION (000025E0) IN CSECT(I4801 ) LENGTH (2) 
47 EQ ABSOLUTE. HEX VALUE (00000000 58 OF ABSOLUTE, HEX VALUE(Q0000202 
366 453 ( ) 381 399 7 4 $5 
569 ER ABSOLUTL., HEX VALUE (00000021) 1195 ONE1 ADDRESS. HEX LOCATION(00002B42) IN CSECT(I4801 ) LENGTH(2) 
998 1006 1013 1020 1064 1370 1389 1472 1514 1032 1068 
1539 4725 1734 1737 533 OPTN1 ADDRESS. HEX LOCATION(00002788) IN CSECT(I4801 ) LENGTH{2) 
1722 ERTST ADDRESS. HEX LOCATION (00002EB8) IN CSECT (14801 i LENGTH (2) 783) ~=—6889) ~— 980) = 18611501 
793 794 802 803 809 10 819 820 #827 556 OPTN3 ADDRESS. HEX LOCATION (00.00278C) IN CSECT(I4801 ) LENGTH(2) 
17.29 ERTSV ADDRESS. HEX LOCATION(OOO02EFC&) IN CSECT(I4801 ) LENGTH(4) 101 PARMARA ADDRESS. HEX LOCATION (00001968) Im CSECT(I4801 ) LENGTH (1) 
1742 ERTSX ADDRESS. HEX LCCATION(OOOO2FF2) IN CSECT(14801 LENGT 69 PID ADDRESS, HEX LCCATION(00001800) IN CSECT (14801 LENGTH (1 
a. ae ees, eos aes Ge | ce aene#eee#:ee#esee 
: IN CSECT(I ENGTH 
41733 1739 ¢ ) ( (-) 89 90 91 92 93 94 95 96 97 
644 EXIT ABSOLUTE. HEX VALUE(00000006) 98 99 100 101 102. 103 104 105 106 
1521 107 108 109 110 111 112 1655 
1689 FAKETU ADDRESS. HEX LCCATION(OOOO2EBO) IN CSECT(I4801 ) LENGTH(2) 1690 PIDHMSG10 see Tete HEX VALUE (OOOOF1FQ) 
1072 FINS ADDRESS. HEX LOCATION (00002A84) IN CSECT(I4801 ) LENGTH (6) 650 PREP ABSOLUTE. HEX VALUE (0000000C) 
1107 FRDCB TD ORESS. HER LOCIa LON OOGOsACO ar ee ae LE 2 1174 RDDCB 10 SDRESS HEX LOCATION(00002E20) IN CSECT(1I4801 LENGTH (2 
A07 3389 ( ) ( y SEUGTAC) AOL ag) 759° BOO Bta 1s, Big. 847 Bb3 (2) 
513 FO00004 ADDRESS. HEX LOCATION(00002688) IN CSECT(I4801 ) LENGTH(1) 834 =86835) 6 — 841 BAZ 1277_ = 1280 
463 661 RELSD ‘ABSOLUTE. HEX VALUE(00000017) 
487 F00038 ADDRESS. HEX LCCATION(000025EC) IN CSECT(I4801  ) LENGTH(1) 1665 
376 660 REQSD ABSOLUTE. HEX VALUE (00000016} 
491 FO00485 ADDRESS. HEX LOCATION(0000261A) IN CSECT(I14801  ) LENGTH(1) 1598 
391 1196 REVR ADDRESS. HEX LOCATION(00002544) IN CSECT(I4801 ) LENGTH(2) 
497 F00052 ADDRESS. HEX LOCATION (0000263A) IN CSECT(I4801  ) LENGTH(1) 1058 
409 657 RICB ABSOLUTE. HEX VALUE (00000013) 
503 F00058 ADDRESS. HEX LCCATION(0000265A) IN CSECT(I4801 ) LENGTH(1) 1667 
427 1118 RSDCB ADDRESS. HEX LOCATION(O0002AD0) IN CSECT(I4801 ) LENGTH(2) 
509 F00064 ADDRESS. HEX LOCATION(00002676) IN CSECT(I4801 ) LENGTH(1) 824 = 825) B31 10231271 
“a5 596 SCTID ADDRESS. HEX LOCATION (00002796) IN CSECT(I4801 } LENGTH(2) 
525 F00073 ADDRESS. HEX LOCATION (0000274A) IN CSECT(I4801 ) LENGTH(1) 1066 81125 = =©69272) «61273 = 1663 
66 1129 SKDCB ADDRESS. HEX ECCATION(09002AE0) IN CSECT(14801 ) LENGTH(2) 
1060 GO1 ADBRESS- HEX LCCATION(00002A56) IN CSECT(I4801 ) LENGTH(6) oe 1009) 1070 1023 1024 1029 1058 1060 1061 
1695 HEBLK ABDRESS. HEX LOCATION(OO002EB2) IN CSECT(I4801 )} LENGTH(2) 1058 SKRV Dt ae HEX LCCATION(OOOO2A4C) IN CSECT(I4801 ) LENGTH (6) 
664 HTOE ABSOLUTE. HEX VALUE (00000014) 648 START qace ets HEX VALUE (Q000000A) 
640 IDLE ABSOLUTE. HEX VALUE (00000002) 104 SUPSTAT een HEX LOCATION(O00019C4) IN CSECT (14801 ) LENGTH (1) 
571 IN ABSOLUTE. HEX VALUE (00000023) 6 22 SVCAL jABDRESS. HEX LOCATION (000027CA) IN CSECT(I4801 ) LENGTH (2) 
1562 INTBL ADDRESS. HEX LCCATION(OOO002CF6) IN CSECT(I4801  ) LENGTH (2) 95 TUBUFF PN Ra HEX LOCATION (000018C2) IN CSECT(I4801 ) LENGTH(1) 
1459 INTER BDDRESS. HEX LOCATION(00002C5E) IN CSECT (14801 ) LENGTH (2) 92 TUMSGWTR icon HEX LOCATION(OOOO18BA) IN CSECT(I4801 ) LENGTH(1) 
14608 INTES ADDRESS. HEX LCCATION(00002C76) IN CSECT(1I4801 ) LENGTH (2) 76 TU PARH1 ROL REae: HEX LOCATION (0000189A) IN CSECT(I4801 ) LENGTH (1) 
1472 INTE? ADDRESS. HEX LOCATION(OQOOO2C7E) IN CSECT(I4801 LENGTH (2 98 TURESUL ADDRESS. HEX LCCATION(000018C8) IN CSECT(I4801 LENGTH (1 
1469 ( ) ( (¢) 789 790 912 379° 920 baa 989 : 990 9b4 = 
1499 INTOK {RDDRESS. HEX LOCATION (00002C82) IN CSECT(I4801 ) LENGTH{2) 1075 172 ee 1050 1057 1052 1053 1054 1072 
1521 INTRX pDDRESS. HEX LCCATION(00002CB2) IN CSECT(I4801  ) LENGTH (2) 620 TURTN Poe Baa Gee ace IN CSECT(I4801 ) LENGTH(2) 
1502 INTR1 ADDRESS. HEX LOCATION (C0002C6A) IN CSECT (14801 ) LENGTH (2) 74 TUSTATUS seonnreee HEX LCCATION(00001818) IN CSECT (14801 ) LENGTH (1) 
1507 INTKZ ADDRESS. HEX LOCATION (00002C98) IN CSECT (14601 ) LENGTH (1) 75 TUWORK cpio eon LOCATION(OOQO181A) IN CSECT(I4801 ) LENGTH (1) 
1515 INTR3 BDDRESS. HEX LCCATION(00002CA6) IN CSECT(1I4801 ) LENGTH.(2) 1039 TO3A Soon HEX LOCATION (OOOO2A1C) IN CSECT(14801 ) LENGTH (2) 
1553 IOBLK ADDRESS. HEX LOCATION (OQOO2CEA) IN CSECT(I4801 ) LENGTH(2) 1047 T0365 ae HEX LOCATION(00002A20) IN CSECT(I4801 ) LENGTH (2) 
1555 IODCB ADDRESS. HEX LOCATION (0000 2CEE), IN CSECT (14801 L LENGTH (2) 1045 T03D ADDRESS. HEX LOCATION(00002A28) IN CSECT(I4801 ) LENGTH (2) 
1265 1268 1271 1280 1283 1286 1289 1291 1354 1036 =61067 
1360 1605 1729 1733 1055 TO3ER ADDRESS. HEX LOCATION(00002A48) IN CSECT(I4801 ) LENGTH(2) 
1556 IOMGD ADDRESS. HEX LOCATION (O0002CFO) IN CSECT(I4801 ) LENGTH (2) 997 1005 1012 1019 1063 
1292 1349 1355 1047 TO 3K ADDRESS. HEX LCCATION({00002A2C) IN CSECT(I4801 ) LENGTH(2) 
37 14801 CSECT. START(00002500) LENGTH(2552) ESDIL(0) 1007 1021 
37 1049 TO3R ADDRESS. HEX LCCATION(00002A30) IN CSECT(I4801 ) LENGTH(4) 
1676 LINE1 ADDRESS. HEX LCCATION(OOO02DDA) IN CSECT (14801 ) LENGTH(40) 982 
1644 1035 T032Z ADDRESS. HEX LOCATION(00002A10) IN CSECT(14801  ) LENGTH(6) 
1027 LOOF1 ADDRESS. HEX LOCATION(000029F6) IN CSECT (14801 ) LENGTH (2) 1014 
1071 848 TOWA ADDRESS. HEX LCCATION(00002886) IN CSECT(14801 ) LENGTH(2) 
591 LSTIO ADDRESS. HEX LOCATION (00002794) IN CSECT(14801 ) LENGTH (2) 7196 
1358 1609 850 TO4B ADDRESS. HEX LOCATION(000028BA) IN CSECT({14801  ) LENGTH(2) 
568 MI ABSOLUTE. HEX VALUE (00000020) 805 
S17 852 TO4C ADDRESS. HEX LCCATION(OQOO28BE) IN CSECT(I4801 ) LENGTH(2) 
1647 MVBUF ADDRESS. HEX LOCATION(00002D5A) IN CSECT (14801 } LENGTH (2) 812 
1651 1654 854 TO4D ADDRESS. HEX LOCATION(000028C2) IN CSECT(I4801 ) LENGTH(2) 
580 NG ABSOLUTE. HEX VALUE (0000002C) 822 
1520 856 TOUWE ADDRESS. HEX LOCATION(000028C6) IN CSECT(I4801 ) LENGTH(2) 
575 NI ABSOLUTE. HEX VALUE(00000027) 830 
1377 858 TO4F ADDRESS. HEX LOCATION(O00028CA) IN CSECT(I14801 ) LENGTH{2) 
363 N00001 ADDRESS. HEX LCCATION (00002538) IN CSECT(14801 ) LENGTH (2) 840 
315 478 845 TO4I ADDRESS. HEX LCCATION (00002652) IN CSECT(14801  ) LENGTH(4) 
375 N00002 ADDRESS. HEX LOCATION(OO00254E) IN CSECT(I4801 ) LENGTH (2) a 849 85 853 857 9 
318 887 T3C00 ADDRESS. HEX LOCATION(000028CE) IN CSECT(I4801 ) LENGTH(4) 
378 N00003 ADDRESS. HEX LOCATION(00002552) IN CSECT(I4801 ) LENGTH(2) 365 
321 364 927 T3ICOOI ADDRESS. HEX LOCATION (0000293E) IN CSECT(I4801  ) LENGTH(2) 
390 NO0004 ADDRESS. HEX LOCATION (00002564) IN CSECT(I4801 ) LENGTH (2) 895 896 #697 99 01 909 919 
324 914 T3COON ADDRESS. HEX LOCATION(00002926) IN CSECT(I4801 ) LENGTH(2) 
396 NO0005 ADDRESS. HEX LOCATION(00002570) IN CSECT(I4801  ) LENGTH (2) 908 
327. «379 919 T3C00S ADDRESS. HEX LCCATION(0000292E) IN CSECT(I4801 ) LENGTH(6) 
408 NO0006 ADDRESS. HEX LOCATION(00002582) IN CSECT(I4801 ) LENGTH (2) : 906 911 #915 
330 920 T3C00X ADDKESS, HEX LOCATION(00002934) IN CSECT(I4801 ) LENGTH(6) 
414 N00007 ADDRESS. HEX LCCATLON(Q000258E) IN CSECT(I4801 ) LENGTH (2) 913 917 
333 397 629 T3C02 ADDRESS, HEX LCCATION(O00027CE) IN CSECT(I14801 ) LENGTH (6) 
4 26 NOOO0& ADDRESS. HEX LOCATION{000025A0) IN CSECT(1I4801 ) LENGTH (2) 398 41 
336 978 T4803 ADDRESS. HEX LOCATION(00002942) IN CSECT(I4801 ) LENGTH(4) 
432 N00009 ADDRESS. HEX LOCATION(Q00025AC) IN CSECT(I4801 ) LENGTH (2) 380 
339 415 781 T4804 ADDRESS. HEX LCCATION(000027£6) IN CSECT(I14801  ) LENGTH (4) 
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